Delphi 2.0 - Programmer's Utilities Power Pack/Delphi 2.0 Programmer's Utilities Power Pack.iso/m_to_r/qrep096/biorep.dfm/biorep.txt

Text File | 1996-09-15 | 6.5 KB | 312 lines

object Bioform: TBioform
  Left = 188
  Top = 202
  Width = 774
  Height = 352
  HorzScrollBar.Range = 1200
  HorzScrollBar.Position = 8
  VertScrollBar.Range = 2000
  AutoScroll = False
  Caption = 'Bioform'
  Font.Color = clBlack
  Font.Height = -13
  Font.Name = 'Arial'
  Font.Style = []
  PixelsPerInch = 96
  Visible = True
  TextHeight = 16
  object DetailBand: TQRBand
    Left = -8
    Top = 57
    Width = 1200
    Height = 152
    Align = alTop
    BandType = rbDetail
    Color = clWhite
    ForceNewPage = False
    Frame.Width = 0
    Ruler = qrrInchesHV
    object QRDBText1: TQRDBText
      Left = 116
      Top = 12
      width = 177
      height = 17
      AutoSize = False
      DataSource = DataSource1
      DataField = 'Common_Name'
    end
    object QRDBText3: TQRDBText
      Left = 116
      Top = 60
      width = 177
      height = 17
      AutoSize = False
      DataSource = DataSource1
      DataField = 'Category'
    end
    object QRLabel1: TQRLabel
      Left = 8
      Top = 12
      width = 105
      height = 16
      Caption = 'Common name :'
      AlignToBand = False
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = [fsBold]
    end
    object QRDBText4: TQRDBText
      Left = 116
      Top = 36
      width = 177
      height = 17
      AutoSize = False
      DataSource = DataSource1
      DataField = 'Species Name'
    end
    object QRLabel2: TQRLabel
      Left = 8
      Top = 36
      width = 77
      height = 16
      Caption = 'Real name :'
      AlignToBand = False
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = [fsBold]
    end
    object QRLabel3: TQRLabel
      Left = 8
      Top = 60
      width = 65
      height = 16
      Caption = 'Category :'
      AlignToBand = False
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = [fsBold]
    end
    object QRDBText5: TQRDBText
      Left = 116
      Top = 84
      width = 37
      height = 17
      AutoSize = False
      DataSource = DataSource1
      DataField = 'Length (cm)'
    end
    object QRLabel4: TQRLabel
      Left = 8
      Top = 84
      width = 68
      height = 16
      Caption = 'Size (CM) :'
      AlignToBand = False
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = [fsBold]
    end
    object QRLabel5: TQRLabel
      Left = 8
      Top = 124
      width = 79
      height = 16
      Caption = 'Description :'
      AlignToBand = False
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = [fsBold]
    end
    object QRDBText2: TQRDBText
      Left = 116
      Top = 124
      width = 581
      height = 17
      AutoSize = False
      DataSource = DataSource1
      DataField = 'Notes'
    end
    object DBImage1: TDBImage
      Left = 352
      Top = 12
      Width = 169
      Height = 105
      DataField = 'Graphic'
      DataSource = DataSource1
      Stretch = True
      TabOrder = 0
    end
  end
  object TitleBand: TQRBand
    Left = -8
    Top = 0
    Width = 1200
    Height = 57
    Align = alTop
    BandType = rbTitle
    Color = clWhite
    ForceNewPage = False
    Frame.Width = 0
    Ruler = qrrNone
    object Image1: TImage
      Left = 12
      Top = 4
      Width = 69
      Height = 33
      Picture.Data = {<image000.bmp>}
      Stretch = True
    end
    object QRLabel6: TQRLabel
      Left = 96
      Top = 4
      width = 193
      height = 36
      Caption = 'QuickReport'
      AlignToBand = False
      Font.Color = 8404992
      Font.Height = -32
      Font.Name = 'Arial'
      Font.Style = [fsBold, fsItalic]
    end
    object QRLabel7: TQRLabel
      Left = 300
      Top = 20
      width = 61
      height = 16
      Caption = 'for Delphi'
      AlignToBand = False
      Font.Color = 8404992
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = [fsBold, fsItalic]
    end
    object QRLabel8: TQRLabel
      Left = 540
      Top = 20
      width = 200
      height = 16
      Caption = 'Copyright (c) 1995 Allan Lochert'
      AlignToBand = False
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = [fsBold, fsItalic]
    end
    object QRShape2: TQRShape
      Left = 8
      Top = 44
      width = 733
      Height = 5
      Brush.Color = clNavy
      Shape = qrsRectangle
    end
  end
  object QRBand1: TQRBand
    Left = -8
    Top = 209
    Width = 1200
    Height = 8
    Align = alTop
    BandType = rbDetail
    Color = clWhite
    ForceNewPage = False
    Frame.Width = 0
    Ruler = qrrNone
    object QRShape1: TQRShape
      Left = 8
      Top = 3
      width = 737
      Height = 1
      Shape = qrsRectangle
    end
  end
  object QRBand2: TQRBand
    Left = -8
    Top = 217
    Width = 1200
    Height = 24
    Align = alTop
    BandType = rbPageFooter
    Color = clWhite
    ForceNewPage = False
    Frame.Width = 0
    Ruler = qrrNone
    object QRSysData1: TQRSysData
      Left = 676
      Top = 4
      width = 65
      height = 17
      Alignment = taRightJustify
      AlignToBand = True
      AutoSize = False
      Data = qrsPageNumber
      Text = 'Page '
    end
  end
  object Table1: TTable
    Active = True
    DatabaseName = 'DBDEMOS'
    TableName = 'BIOLIFE.DB'
    Left = 36
    Top = 272
    object Table1SpeciesNo: TFloatField
      FieldName = 'Species No'
    end
    object Table1Category: TStringField
      FieldName = 'Category'
      Size = 15
    end
    object Table1Common_Name: TStringField
      FieldName = 'Common_Name'
      Size = 30
    end
    object Table1SpeciesName: TStringField
      FieldName = 'Species Name'
      Size = 40
    end
    object Table1Lengthcm: TFloatField
      FieldName = 'Length (cm)'
    end
    object Table1Length_In: TFloatField
      FieldName = 'Length_In'
    end
    object Table1Notes: TMemoField
      FieldName = 'Notes'
      Size = 50
    end
    object Table1Graphic: TGraphicField
      FieldName = 'Graphic'
    end
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 68
    Top = 272
  end
  object Biorep: TQuickReport
    Columns = 1
    DataSource = DataSource1
    DisplayPrintDialog = False
    LeftMarginInches = 0
    LeftMarginMM = 0
    Orientation = poPortrait
    PrintOrder = qrColByCol
    ReportTitle = 'QuickReport Biolife demo report'
    ReportType = qrStandard
    RestartData = True
    SQLCompatible = False
    TitleBeforeHeader = False
    Left = 4
    Top = 272
  end
  object QRDetailLink1: TQRDetailLink
    Left = 100
    Top = 272
  end
end